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module sortmerge 
define type sort_ke 
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eyword Bos ition. value(required. type=Snunber) 

keyword size,value(required,type=Snumber) 

keyword Ree o PONS TOGETFES  hIDOM number ) 
n 


keyword 
keyword character 
keyword deg 
keyword d_floating 
keyword f_floating 
keyword g-floating 
keyword fh_ fl 


keyword picked_dec imal 


keyword zone 
keyword signed 


keyword ne gree 
keyword leading_sign 
keyword trailing sign 


keyword overpunched_sign 


keyword separate_sign 
keyword ascending 
keyword descendin 


9 keyword dtype,vaitetroeuived) 


define nee sort_type 
eyword address 
keyword index 
keyword record 
keyword tag 


define type record_format 
eyword fixed, 
keyword variable, 
keyword controlled, 
keyword size 
keyword block size, 
keyword record_size, 
keyword file_size, 


define t collating_t 
used aoe - 


keyword ebcdic 
keyword multinational 


define syntax sort_using_srt 
Tnage bocktrane’” 


define verb sort 
snag? sortmerge 
prefix cli$k_sort_ 


value(type=$number ) 
value(type=$number) 
value(type=$number) 
value<required, type=$number ) 
value(required, type=$number ) 
value(type=$number 
value(type=$number) 


parameter Bi prompts ingut ,valvetcoquired.t ist .typestiat ile) 
parameter p2,prompt="‘Output C) 


*,value(required, type=$out file) 
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qualifier process, satus} required. typecsort. type) 

qualifier key, value(required, list, type=sort_key) 

qualifier 2222, 

qualifier work files value(type=$number), defauit 

qualifier speciticat{ion,value(typesSinfiile) 

qualifier rsxil, Synteqweort velng. sre 

qualifier format, value(required,list,type=record_format), 
placement=local 


qualifier bucket_size, 4 peptide 1) 0 eappettle 
placement=positional 

qualifier allocation, value(requ req, typersnunber). 
placement=positional 

qualifier block.size, value(required,type=$number) ,placement=Llocal, 
syntax=sort_using_srt 

qualifier contiguous, placement=positional 

qualifier device, value(required,type=$device), 


syntax=sort_us ng-srt 
qualifier indexed_sequential ,value(fype=Snumber) ,placement=positional 
qualifier relative, Lacement=positional 
qualifier sequential, placement=positional 
qualifier overlay, placement=local 
qualifier stable, 
qualifier statistics, 
qualifier load_fill, placement=Llocal 
qualifier collating _sequence value(required,type=collating_type) 
qualifier duplicates, default !!,value 


qualifier check_sequence 


define verb merge 

saoge sortmerge 

prefix cli$k_merg_ 

parameter Bj -pronpee! input qvelyetroquiced. list .typessint ite 
parameter BE -orenpte Wtput -yelueiroquired. types out file) 
qualifier process, value(required,type=sort_type) 
qualifier key, value(required, list,type=sort_key) 
qualifier 2222, 

qualifier work files, value(type=$number) 

qualifier specification, value(type=Sinfile) 

qualifier zzzy, 


qualifier format, value(required,list,type=record_format), 
placement=loca 
qualifier bucket_size, velue(required. typerSnunber) . 
Lacement=positional 


qualifier allocation, value (required, type=Snunber? 
placement=pos na 

qualifier block_size, value(required,type=$number) ,placement=local 
syntaxssort_u ing_srt 

p 


qualifier contiguous, acement=positional 


qualifier zz2x, 

qualifier indexed_sequentiai,value(type=Snumber) ,placement=positional 
qualifier relative, placement=positional 

qualifier sequential, placement=positional 

qualifier overlay, placement=local 


qualifier stable 
qualifier statistics 
qualifier load_fill, placement=local 


ee ee ee ee 
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r collating, sequence yoluptreguired. type=collating_type) 
r duplicates, fault !!,value 
r check ae dest tt 
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